به روش زیر عمل کنید

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

بعد از معرفی تابع بالادستور زیر رادر یک دکمه بنویسید

Dim A as Long
Private Sub Command1_Click()
     A = timeGetTime
     Text1.Text = A
End Sub

موفق باشید

نظرات شما عزیزان:

sundaughter

ساعت11:31---4 ارديبهشت 1393

[وب سایت] - [ایمیل]

سلام
ممنون خیلی دنبال این تابع گشتم.ممنون
راستی ازوبلاگتون خیلی خوشم اومداگرباتبادل لینک موافقین بهم اطلاع بدین
ممنون

sundaughter

ساعت11:30---4 ارديبهشت 1393

- [ایمیل]

سلام

ممنون خیلی دنبال این تابع گشتم.ممنون

راستی ازوبلاگتون خیلی خوشم اومداگرباتبادل لینک موافقین بهم اطلاع بدین

ممنون

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: